www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/Comment.asp
<!--#include file="inc/conn.asp"--> <%id=trim(request("id")) com_name=Replace(Request.Form("com_name"),"'","''") content=Replace(Request.Form("com_content"),"'","''") if id="" then%> 请选择你要评论的文章!<a href="Shownews.asp?id=<%=id%>">请返回</a> <% Response.end end if if com_name="" then%> 请输入你的大名!<a href="Shownews.asp?id=<%=id%>">请返回</a> <% Response.end end if if content="" then%> 评论内容不能为空?!<a href="Shownews.asp?id=<%=id%>">请返回</a> <% Response.end end if set rs=server.CreateObject("adodb.recordset") rs.Open "select * from comment",conn,1,3 rs.addnew rs("com_name")=com_name rs("com_content")=content rs("com_typeid")=id rs("com_date")=date rs.update rs.close set rs=nothing response.redirect "Shownews.asp?id="&id %>